home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / RESULTS.Dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  370 b   |  20 lines
  1. on exitFrame
  2.   global gMyPerc
  3.   puppetSprite(8, 1)
  4.   puppetSprite(9, 1)
  5.   if gMyPerc < 25 then
  6.     set result to "Res1"
  7.   else
  8.     if gMyPerc < 50 then
  9.       set result to "Res2"
  10.     else
  11.       if gMyPerc < 75 then
  12.         set result to "Res3"
  13.       else
  14.         set result to "Res4"
  15.       end if
  16.     end if
  17.   end if
  18.   set the memberNum of sprite 9 to member result
  19. end
  20.